home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 116 / Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64 / 120 -ende- (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  667b  |  18 lines
  1. 15 p=p+1:print"[147]";:poke53280,.:poke53281,.:
  2. 20 print"[145][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221] [221]":forc=3to13:poke56325,1
  3. 25 t$="                ende                 ":print"[145]";:poke646,c*(rnd(1))
  4. 30 print"[163][163][163][163][163][146]     [146]     [146]     [146]     [146]     [146]     [146][163][163][163][163][163]":next
  5. 35 print"";:forx=1tolen(t$)
  6. 40 y=asc(mid$(t$,x,1)):ify=46ory=32thenm=m+1:z=y:goto50
  7. 45 forz=64toy
  8. 50 ify=46thenz=46:asc(mid$(t$,x,1))
  9. 55 ifz>128andz<>46andz<160thenz=160
  10. 60 poke214,p+p:print:poke56325,55:ifp=4then85
  11. 65 printtab(x+(39-len(t$))/2);
  12. 70 printchr$(z);:ifm>0thenm=0:nextx:goto80
  13. 71 s=54272:pokes+24,15:pokes+6,255:pokes+4,81:i=i+x:forn=1toi*(rnd(2))stepz
  14. 72 pokes+5,9*11:pokes+1,n/7       :pokes+4,29:pokes+4,32 ::next:pokes+4,0
  15. 75 nextz,x:
  16. 80 goto15
  17. 85 print"[147][146]                  ende                  ";:forz=1to750:next:sys2048
  18.